Código fuente de 'Usuarios activos 3.asp'
<html>
<head>
<title>Usuarios activos 3 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 11pt">
<center><b><font face="Arial" size="3">Usuarios activos 3</font></b></center><br>
<br>
<%= Application("ActiveUsers") %></FONT></B><font color="#0000FF"><b><!--
Código a introducir en el fichero Global.asa: --></b></font><br>
<b><SCRIPT LANGUAGE="VBScript" RUNAT="Server"></b><br>
<br>
<b>Sub Application_OnStart<br>
</b>' Inicializar contador al arrancar el servidor<br>
Application("ActiveUsers") = 0<br>
<b>End Sub</b><br>
<br>
<b>Sub Session_OnStart</b><br>
' El timeout de la Sesión será de 20 minutos<br>
Session.Timeout = 20<br>
' Hora de comienzo de sesión (importantes sólo para asegurarnos de que iniciamos
una sesión)<br>
Session("Start") = Now<br>
' Incrementar los visitantes activos cuando se inicializa una sesión<br>
Application.Lock<br>
Application("ActiveUsers") = Application("ActiveUsers") + 1<br>
Application.UnLock<br>
<b>End Sub</b><br>
<br>
<b>Sub Session_OnEnd</b><br>
' Cuando se cierra la sesión se decrementa el número de usuarios activos<br>
Application.Lock<br>
Application("ActiveUsers") = Application("ActiveUsers") - 1<br>
Application.UnLock<br>
<b>End Sub</b><br>
<br>
<b></SCRIPT></b><br>
<br>
<br>
<font color="#0000FF">
<b><!-- Código a introducir en la página donde se muestren los usuarios activos: --></b></font><br>
<%@ Language=VBScript %> <br>
<HTML><br>
<HEAD><br>
<TITLE>Active Sessions</TITLE><br>
</HEAD><br>
<BODY><br>
<br>
<B><FONT COLOR="#CC0000"><%= Application("ActiveUsers") %></FONT> Active
Users</B><br>
<br>
</BODY><br>
</HTML></b></font>
</p>
</BODY>
</HTML>